home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / VI5.ARJ / VIDEMO.EXE / SAMPLE4.PRG < prev    next >
Text File  |  1992-01-21  |  932b  |  28 lines
  1. ************************************************************************
  2. * SAMPLE3.PRG                           Peter M. Freese
  3. * 1/20/92                               Pinnacle Publishing, Inc.
  4. *
  5. * Source code demonstration of Group Box Styles
  6. ************************************************************************
  7.  
  8. #include "vi.ch"
  9. #include "inkey.ch"
  10.  
  11. FUNCTION Sample4()
  12. LOCAL oWin
  13.   // create a window
  14.   oWin := VWindowNew(12,20,27,60,0,WS_DOUBLEBORDER+WS_TITLE,;
  15.     WHITE,GREEN,"Group Box Styles")
  16.  
  17.   VGroupBoxNew(oWin,2,4,5,18,GB_BORDER+GB_TITLETHRU+GB_TITLEMID,;
  18.     "BLACK")
  19.   VGroupBoxNew(oWin,2,22,5,36,GB_INDENT+GB_TITLETHRU+GB_TITLEMID,;
  20.     "INDENT")
  21.   VGroupBoxNew(oWin,8,4,11,18,GB_DROPSHADOW+GB_TITLETHRU+GB_TITLEMID,;
  22.     "DROPSHADOW")
  23.   VGroupBoxNew(oWin,8,22,11,36,GB_LIFTSHADOW+GB_TITLETHRU+GB_TITLEMID,;
  24.     "LIFTSHADOW")
  25.  
  26.   // return window object to calling routine
  27. RETURN oWin
  28.